home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / basic / df_lib.lha / df_lib / Examples / Sources / df_Timer.pb < prev   
Encoding:
Text File  |  2002-01-07  |  205 b   |  17 lines
  1. ;
  2. ; Timer example
  3. ;
  4. ; by Francis G. Loch
  5. ;
  6.  
  7. InitRequester()
  8.  
  9. ResetTimer()
  10.  
  11. For loop=0 To 100
  12.   VWait()
  13. Next
  14.  
  15. result.l=Timer()
  16.  
  17. req.l=EasyRequester("Information", "Loop took "+Str(result)+" ticks.", "Okay")